* which-key.el (which-key--partition-list): Replace cl-subseq by take
authorJeremy Bryant <jb@jeremybryant.net>
Wed, 3 Apr 2024 20:05:09 +0000 (21:05 +0100)
committerJustin Burkett <justin@burkett.cc>
Tue, 9 Apr 2024 17:51:59 +0000 (13:51 -0400)
which-key.el

index bf45386f57886b3a3089b2b2191ea4fab83019d5..decde2d10bdfb336142a58380f906b513644cc25 100644 (file)
@@ -2013,7 +2013,7 @@ that width."
   "Partition LIST into N-sized sublists."
   (let (res)
     (while list
-      (setq res (cons (cl-subseq list 0 (min n (length list))) res)
+      (setq res (cons (take (min n (length list)) list) res)
             list (nthcdr n list)))
     (nreverse res)))